inherited FPesquisaBaixaCp: TFPesquisaBaixaCp
  Left = 799
  Top = 247
  Caption = 'Pesquisa Baixa Contas a Pagar'
  ClientHeight = 331
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Tag = 5
      Enabled = False
    end
  end
  inherited Panel1: TPanel
    Height = 290
    Ctl3D = False
    ParentCtl3D = False
    object Label10: TLabel [0]
      Left = 7
      Top = 214
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label2: TLabel [1]
      Left = 6
      Top = 1
      Width = 75
      Height = 13
      Caption = 'Fornecedor (F8)'
    end
    object Label9: TLabel [2]
      Left = 5
      Top = 156
      Width = 52
      Height = 13
      Caption = 'Data Baixa'
    end
    object Label6: TLabel [3]
      Left = 96
      Top = 176
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label1: TLabel [4]
      Left = 6
      Top = 76
      Width = 28
      Height = 13
      Caption = 'Conta'
    end
    object Label3: TLabel [5]
      Left = 114
      Top = 36
      Width = 55
      Height = 13
      Caption = 'Documento'
    end
    object Label4: TLabel [6]
      Left = 5
      Top = 116
      Width = 37
      Height = 13
      Caption = 'Cheque'
    end
    object Label12: TLabel [7]
      Left = 429
      Top = 33
      Width = 33
      Height = 13
      Caption = 'Codigo'
    end
    object Label20: TLabel [8]
      Left = 6
      Top = 36
      Width = 86
      Height = 13
      Caption = 'Grupo Fornecedor'
      FocusControl = BtnConsultar
    end
    inherited DBGrid1: TDBGrid
      Top = 295
      Height = 78
      Align = alNone
      TabOrder = 12
      Columns = <
        item
          Expanded = False
          FieldName = 'TITULO'
          Title.Caption = 'Titulo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONTA'
          Title.Caption = 'Conta'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FORNECEDOR'
          Title.Caption = 'Fornecedor'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DOCUMENTO'
          Title.Caption = 'Documento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQUE'
          Title.Caption = 'Cheque'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HISTORICO1'
          Title.Caption = 'Hist'#243'rico 1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HISTORICO2'
          Title.Caption = 'Hist'#243'rico 2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALORTITULO'
          Title.Caption = 'valor Titulo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATAVENCIMENTO'
          Title.Caption = 'Data Vencimento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SALDO'
          Title.Caption = 'Saldo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALORBAIXA'
          Title.Caption = 'Valor Baixa'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATABAIXA'
          Title.Caption = 'Data Baixa'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DESCONTO'
          Title.Caption = 'Desconto'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JUROSMULTA'
          Title.Caption = 'Juros e Multa'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 269
      TabOrder = 11
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 7
      Top = 196
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 9
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 229
      Width = 409
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 10
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 6
      Top = 15
      Width = 395
      Height = 19
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      TabOrder = 1
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DEDataBaixaIni: TDateEdit
      Left = 5
      Top = 172
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 7
    end
    object DEDataBaixaFim: TDateEdit
      Left = 106
      Top = 172
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 8
    end
    object DBLCBConta: TDBLookupComboBox
      Left = 6
      Top = 92
      Width = 396
      Height = 19
      KeyField = 'CONT_CORR_CODIGO'
      ListField = 'CONT_CORR_DESCRICAO'
      ListSource = DSConta
      TabOrder = 5
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object EDocumento: TEdit
      Left = 114
      Top = 52
      Width = 73
      Height = 19
      MaxLength = 10
      TabOrder = 3
    end
    object ECheque: TEdit
      Left = 5
      Top = 132
      Width = 49
      Height = 19
      MaxLength = 6
      TabOrder = 6
    end
    object ETitulo: TEdit
      Left = 429
      Top = 47
      Width = 77
      Height = 19
      TabOrder = 0
    end
    object cbxTipoBusca: TComboBox
      Left = 191
      Top = 52
      Width = 72
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = 'igual'
      OnChange = cbxTipoBuscaChange
      Items.Strings = (
        'Igual'
        'Contendo'
        'Iniciado'
        'Terminado')
    end
    object edGrupoForn: TEdit
      Left = 6
      Top = 52
      Width = 100
      Height = 19
      Ctl3D = False
      MaxLength = 5
      ParentCtl3D = False
      TabOrder = 2
    end
  end
  inherited QPesquisa: TQuery
    AutoRefresh = True
    SQL.Strings = (
      'Select '
      
        'Cp_Codigo As Titulo,Cp_Documento as Documento,Forn_Razao as Forn' +
        'ecedor, Cp_Historico1 as Historico1,Cp_Historico2 as Historico2,'
      
        'Cp_Valor as Valortitulo, Cp_DataVencimento as DataVencimento,Lan' +
        'c_Data as DataBaixa, Lanc_Cheque as Cheque,Lanc_Valor as ValorBa' +
        'ixa,'
      'lanc_JurosMulta as JurosMulta,Cont_Corr_Descricao as Conta'
      
        'from ContaCorrente  Right Join ( Lancamento  Inner join (ContasP' +
        'agar Left join Fornecedor on CP_Fornecedor = Forn_Codigo) on Lan' +
        'c_Titulo = Cp_Codigo )on Cont_Corr_Codigo = Lanc_Conta'
      ''
      'where (Lanc_CPCR = '#39'P'#39')'
      ''
      'Group by'
      
        'Cont_Corr_Descricao,Lanc_Data,Cp_Codigo,Forn_Razao,Cp_Documento,' +
        'Cp_Historico1,Cp_Historico2,'
      
        'Cp_Valor,Cp_DataVencimento,Lanc_Cheque ,Lanc_Valor,lanc_JurosMul' +
        'ta'
      '')
    Left = 144
    Top = 233
  end
  inherited DSPesquisa: TDataSource
    Left = 176
    Top = 233
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 192
    Top = 48
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 224
    Top = 48
  end
end
